home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 December / 2004-12 CHIP.iso / Narzedzia systemowe / Inno Setup 5.0.4 Beta / isetup-5.0.4-beta.exe / {app} / Examples / CodeDlg.iss < prev    next >
Text File  |  2004-07-05  |  7KB  |  204 lines
  1. ; -- CodeDlg.iss --
  2. ;
  3. ; This script shows how to insert custom wizard pages into Setup and how to handle
  4. ; these pages. Furthermore it shows how to 'communicate' between the [Code] section
  5. ; and the regular Inno Setup sections using {code:...} constants. Finally it shows
  6. ; how to customize the settings text on the 'Ready To Install' page.
  7.  
  8. [Setup]
  9. AppName=My Program
  10. AppVerName=My Program version 1.5
  11. DefaultDirName={pf}\My Program
  12. DisableProgramGroupPage=yes
  13. UninstallDisplayIcon={app}\MyProg.exe
  14.  
  15. [Files]
  16. Source: "MyProg.exe"; DestDir: "{app}"
  17. Source: "MyProg.hlp"; DestDir: "{app}"
  18. Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme
  19.  
  20. [Registry]
  21. Root: HKCU; Subkey: "Software\My Company"; Flags: uninsdeletekeyifempty
  22. Root: HKCU; Subkey: "Software\My Company\My Program"; Flags: uninsdeletekey
  23. Root: HKCU; Subkey: "Software\My Company\My Program\Settings"; ValueType: string; ValueName: "Name"; ValueData: "{code:GetUser|Name}"
  24. Root: HKCU; Subkey: "Software\My Company\My Program\Settings"; ValueType: string; ValueName: "Company"; ValueData: "{code:GetUser|Company}"
  25. Root: HKCU; Subkey: "Software\My Company\My Program\Settings"; ValueType: string; ValueName: "DataDir"; ValueData: "{code:GetDataDir}"
  26. ; etc.
  27.  
  28. [Dirs]
  29. Name: {code:GetDataDir}; Flags: uninsneveruninstall
  30.  
  31. [Code]
  32. var
  33.   UserPage: TInputQueryWizardPage;
  34.   UsagePage: TInputOptionWizardPage;
  35.   LightMsgPage: TOutputMsgWizardPage;
  36.   KeyPage: TInputQueryWizardPage;
  37.   ProgressPage: TOutputProgressWizardPage;
  38.   DataDirPage: TInputDirWizardPage;
  39.   
  40. procedure InitializeWizard;
  41. begin
  42.   { Create the pages }
  43.  
  44.   UserPage := CreateInputQueryPage(wpWelcome,
  45.     'Personal Information', 'Who are you?',
  46.     'Please specify your name and the company for whom you work, then click Next.');
  47.   UserPage.Add('Name:', False);
  48.   UserPage.Add('Company:', False);
  49.  
  50.   UsagePage := CreateInputOptionPage(UserPage.ID,
  51.     'Personal Information', 'How will you use My Program?',
  52.     'Please specify how you would like to use My Program, then click Next.',
  53.     True, False);
  54.   UsagePage.Add('Light mode (no ads, limited functionality)');
  55.   UsagePage.Add('Sponsored mode (with ads, full functionality)');
  56.   UsagePage.Add('Paid mode (no ads, full functionality)');
  57.  
  58.   LightMsgPage := CreateOutputMsgPage(UsagePage.ID,
  59.     'Personal Information', 'How will you use My Program?',
  60.     'Note: to enjoy all features My Program can offer and to support its development, ' +
  61.     'you can switch to sponsored or paid mode at any time by selecting ''Usage Mode'' ' +
  62.     'in the ''Help'' menu of My Program after the installation has completed.'#13#13 +
  63.     'Click Back if you want to change your usage mode setting now, or click Next to ' +
  64.     'continue with the installation.');
  65.  
  66.   KeyPage := CreateInputQueryPage(UsagePage.ID,
  67.     'Personal Information', 'What''s your registration key?',
  68.     'Please specify your registration key and click Next to continue. If you don''t ' +
  69.     'have a valid registration key, click Back to choose a different usage mode.');
  70.   KeyPage.Add('Registration key:', False);
  71.  
  72.   ProgressPage := CreateOutputProgressPage('Personal Information',
  73.     'What''s your registration key?');
  74.  
  75.   DataDirPage := CreateInputDirPage(wpSelectDir,
  76.     'Select Personal Data Directory', 'Where should personal data files be installed?',
  77.     'Select the folder in which Setup should install personal data files, then click Next.',
  78.     False, '');
  79.   DataDirPage.Add('');
  80.  
  81.   { Set default values, using settings that were stored last time if possible }
  82.  
  83.   UserPage.Values[0] := GetPreviousData('Name', ExpandConstant('{sysuserinfoname}'));
  84.   UserPage.Values[1] := GetPreviousData('Company', ExpandConstant('{sysuserinfoorg}'));
  85.  
  86.   case GetPreviousData('UsageMode', '') of
  87.     'light': UsagePage.SelectedValueIndex := 0;
  88.     'sponsored': UsagePage.SelectedValueIndex := 1;
  89.     'paid': UsagePage.SelectedValueIndex := 2;
  90.   else
  91.     UsagePage.SelectedValueIndex := 1;
  92.   end;
  93.  
  94.   DataDirPage.Values[0] := GetPreviousData('DataDir', '');
  95. end;
  96.  
  97. procedure RegisterPreviousData(PreviousDataKey: Integer);
  98. var
  99.   UsageMode: String;
  100. begin
  101.   { Store the settings so we can restore them next time }
  102.   SetPreviousData(PreviousDataKey, 'Name', UserPage.Values[0]);
  103.   SetPreviousData(PreviousDataKey, 'Company', UserPage.Values[1]);
  104.   case UsagePage.SelectedValueIndex of
  105.     0: UsageMode := 'light';
  106.     1: UsageMode := 'sponsored';
  107.     2: UsageMode := 'paid';
  108.   end;
  109.   SetPreviousData(PreviousDataKey, 'UsageMode', UsageMode);
  110.   SetPreviousData(PreviousDataKey, 'DataDir', DataDirPage.Values[0]);
  111. end;
  112.  
  113. function ShouldSkipPage(PageID: Integer): Boolean;
  114. begin
  115.   { Skip pages that shouldn't be shown }
  116.   if (PageID = LightMsgPage.ID) and (UsagePage.SelectedValueIndex <> 0) then
  117.     Result := True
  118.   else if (PageID = KeyPage.ID) and (UsagePage.SelectedValueIndex <> 2) then
  119.     Result := True
  120.   else
  121.     Result := False;
  122. end;
  123.  
  124. function NextButtonClick(CurPageID: Integer): Boolean;
  125. var
  126.   I: Integer;
  127. begin
  128.   { Validate certain pages before allowing the user to proceed }
  129.   if CurPageID = UserPage.ID then begin
  130.     if UserPage.Values[0] = '' then begin
  131.       MsgBox('You must enter your name.', mbError, MB_OK);
  132.       Result := False;
  133.     end else begin
  134.       if DataDirPage.Values[0] = '' then
  135.         DataDirPage.Values[0] := 'C:\' + UserPage.Values[0];
  136.       Result := True;
  137.     end;
  138.   end else if CurPageID = KeyPage.ID then begin
  139.     { Just to show how 'OutputProgress' pages work.
  140.       Always use a try..finally between the Show and Hide calls as shown below. }
  141.     ProgressPage.SetText('Authorizing registration key...', '');
  142.     ProgressPage.SetProgress(0, 0);
  143.     ProgressPage.Show;
  144.     try
  145.       for I := 0 to 10 do begin
  146.         ProgressPage.SetProgress(I, 10);
  147.         Sleep(100);
  148.       end;
  149.     finally
  150.       ProgressPage.Hide;
  151.     end;
  152.     if KeyPage.Values[0] = 'inno' then
  153.       Result := True
  154.     else begin
  155.       MsgBox('You must enter a valid registration key. (Hint: The key is "inno".)', mbError, MB_OK);
  156.       Result := False;
  157.     end;
  158.   end else
  159.     Result := True;
  160. end;
  161.  
  162. function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo,
  163.   MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
  164. var
  165.   S: String;
  166. begin
  167.   { Fill the 'Ready Memo' with the normal settings and the custom settings }
  168.   S := '';
  169.   S := S + 'Personal Information:' + NewLine;
  170.   S := S + Space + UserPage.Values[0] + NewLine;
  171.   if UserPage.Values[1] <> '' then
  172.     S := S + Space + UserPage.Values[1] + NewLine;
  173.   S := S + NewLine;
  174.   
  175.   S := S + 'Usage Mode:' + NewLine + Space;
  176.   case UsagePage.SelectedValueIndex of
  177.     0: S := S + 'Light mode';
  178.     1: S := S + 'Sponsored mode';
  179.     2: S := S + 'Paid mode';
  180.   end;
  181.   S := S + NewLine + NewLine;
  182.   
  183.   S := S + MemoDirInfo + NewLine;
  184.   S := S + Space + DataDirPage.Values[0] + ' (personal data files)' + NewLine;
  185.  
  186.   Result := S;
  187. end;
  188.  
  189. function GetUser(Param: String): String;
  190. begin
  191.   { Return a user value }
  192.   { Could also be split into separate GetUserName and GetUserCompany functions }
  193.   if Param = 'Name' then
  194.     Result := UserPage.Values[0]
  195.   else if Param = 'Company' then
  196.     Result := UserPage.Values[1];
  197. end;
  198.  
  199. function GetDataDir(Param: String): String;
  200. begin
  201.   { Return the selected DataDir }
  202.   Result := DataDirPage.Values[0];
  203. end;
  204.